COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE  Pseudo-code
C00004 ENDMK
C⊗;
;.TITLE  Pseudo-code

;File that requires all the compiled files.
;Overlaid on top of the interpreter. 

NEW == 1	;0 for old, 1 for new
;Only need to insert this during first pass
.IF1
	.IFNZ NEW
	  .PRINT /Experimental version - for use with DEC map
/
	.ENDC

	.MACRO ASCIE STR
	.ASCIZ ∃STR∃
	.EVEN
	.ENDM

	.MACRO MAKEOP CNAME, ANAME	;Compiler name, Address name
	XX	CNAME
	.ENDM

	.IFNZ NEW
	  .INSRT ALHEAD.pal[tmp,arg]
	  .INSRT INTOPS.pal[tmp,arg]
	.IFF
	  .INSRT ALHEAD.PAL[AL,HE]
	  .INSRT INTOPS.PAL[AL,HE]
	.ENDC
		;The interpreter operation table
.ENDC

.OFFSET -160000

	PUTLOC PCDVER, PCVERSION

.IFNZ NEW

   PUTLOC HIADDR, TOPADD

; .OFFSET -320000
.ENDC

. = PCODE	;Beginning of instruction space

; This file is followed by the .ALP, .ALT, & .ALV files. Then COMP2.PAL[AL,HE]